home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #9 / Amiga Plus CD - 2004 - No. 09.iso / amigaplus / tools / amigaos4_only / ifxlite / imagefx3 / rexx / autofx / eot_straw.ifx < prev    next >
Text File  |  2004-08-03  |  561b  |  28 lines
  1. /*
  2.  * $VER: EOT_Straw.ifx 2.6 (24.04.96)
  3.  * Copyright © 1992-1996 Nova Design, Inc.
  4.  *
  5.  * Written by Ola Eric Olsson
  6.  */
  7.  
  8. OPTIONS RESULTS
  9.  
  10. framenum = Word(Arg(1),1)
  11. mainname = Word(Arg(1),2)
  12. swapname = Word(Arg(1),3)
  13. seqnum   = Word(Arg(1),4)
  14. framemax = Word(Arg(1),5)
  15.  
  16. base  = 'autofx_straw_'
  17.  
  18. linesize  = GETCLIP(base||'size')
  19. spacing   = GETCLIP(base||'density')
  20. min       = GETCLIP(base||'minangle')
  21. max       = GETCLIP(base||'maxangle')
  22.  
  23. amt = TRUNC(linesize * (framenum / framemax))
  24.  
  25. Hook Straw Size amt Density spacing MinAngle min MaxAngle max
  26.  
  27. EXIT rc
  28.